home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / COMMUNIC / 0202.ZIP / ARCIT.BAT < prev    next >
DOS Batch File  |  1980-01-01  |  640b  |  41 lines
  1. :START
  2. COPY %1.L?R TEMP
  3. CD TEMP
  4. IF EXIST %1.LQR ALUSQ11 %1.LQR
  5. IF EXIST %1.LQR DEL %1.LQR
  6. IF NOT EXIST %1.LBR GOTO OTHERLBR
  7. LU A %1.LBR
  8. :NOLBR
  9. DEL %1.LBR
  10. IF EXIST *.?Q? GOTO UNSQ
  11. IF EXIST *.LBR GOTO OTHERLBR
  12. :ARCNOW
  13. ARC U %1.ARC *.*
  14. DEL ..\%1.L?R
  15. COPY %1.ARC ..
  16. DEL *.* < ..\Y
  17. CD ..
  18. SHIFT
  19. IF NOT EXIST %1.L?R GOTO FINISH
  20. GOTO START
  21. :UNSQ
  22. ALUSQ11 *.?Q?
  23. DEL *.?Q?
  24. :OTHERLBR
  25. IF EXIST *.LBR BASICA ..\NOLBR
  26. MAKEUN
  27. DEL MAKEUN.BAT
  28. IF EXIST *.LBR GOTO NOLBR
  29. GOTO ARCNOW
  30. :FINISH
  31. CLS
  32. REM  *** ALL SPECIFIED FILES ARCED ***
  33.  
  34. NOLBR
  35. MAKEUN
  36. DEL MAKEUN.BAT
  37. IF EXIST *.LBR GOTO NOLBR
  38. GOTO ARCNOW
  39. :FINISH
  40. CLS
  41. REM  *